home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / comm / mail / Mutt089src.lha / Mutt-0.89i-AMIGA / src / getenv.c < prev    next >
Text File  |  1998-01-28  |  254b  |  14 lines
  1. char *getenv(const char *name) {
  2. FILE *ENV;
  3. char env[200];
  4.  
  5.     sprintf(env,"/ENV/%s",name);
  6.     if ((ENV=fopen(env,"r"))) {
  7.         (void) fgets(env, 200, ENV);
  8.         fclose(ENV);
  9.     } else return NULL;
  10.  
  11.     if (strncmp("/ENV",env,4)==0) return NULL;
  12.     return strdup(env);
  13. }
  14.